home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aax.d64 / take away island (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  170 lines
  1. 1 PRINT"[147]":POKE53281,0:POKE53280,0
  2. 2 PRINTTAB(12)"[158]TAKE AWAY ISLAND[146]"
  3. 3 PRINTTAB(15)"CREATED BY"
  4. 4 PRINTTAB(15)"JEFFREYS10"
  5. 5 PRINTTAB(15)"FEB. 1986"
  6. 7 PRINTTAB(4)"PRESS SPACE BAR FOR INSTRUCTIONS"
  7. 8 GETB$:IFB$=""THEN8
  8. 10 PRINT"[147]"
  9. 20 PRINTTAB(6)"YOU ARE ON A DESERTED ISLAND"
  10. 30 PRINTTAB(2)"A HELICOPTER HAS COME TO RESCUE YOU"
  11. 40 PRINT"YOU MUST CLIMB STAIRS TO THE HELICOPTER"
  12. 50 PRINTTAB(4)"YOU DO THIS BY SOLVING PROBLEMS"
  13. 60 PRINTTAB(2)"A CORRECT ANSWER WILL MOVE YOU UP ONE"
  14. 70 PRINTTAB(2)"A WRONG ANSWER WILL MOVE YOU DOWN ONE"
  15. 80 PRINTTAB(10)"IF YOU REACH THE TOP"
  16. 90 PRINTTAB(4)"THE HELICOPTER WILL FLY YOU HOME"
  17. 100 PRINTTAB(4)"IF YOU FALL OFF THE BOTTOM STEP"
  18. 110 PRINTTAB(1)"THE HELICOPTER WILL LEAVE WITHOUT YOU"
  19. 120 PRINTTAB(13)"GOOD LUCK!"
  20. 130 PRINTTAB(8)"PRESS SPACE BAR TO BEGIN"
  21. 140 GETA$:IFA$=""THEN140
  22. 150 PRINT"[147]"
  23. 155 PRINTTAB(11)"ONE MOMENT PLEASE"
  24. 160 POKE53269,0:POKE2040,192
  25. 170 FORN=0TO62
  26. 180 POKE53271,1:POKE53277,1
  27. 190 READQ
  28. 200 POKE12288+N,Q:NEXT
  29. 205 POKE53248,200:POKE53249,208
  30. 210 REM
  31. 290 REM
  32. 300 POKE53269,0:POKE2041,196
  33. 305 POKE53288,1
  34. 310 FORN=0TO62
  35. 320 POKE53271,3:POKE53277,3
  36. 330 READQ
  37. 340 POKE12544+N,Q:NEXT
  38. 345 POKE53250,248:POKE53251,208
  39. 350 REM
  40. 430 REM
  41. 440 POKE53269,0:POKE2042,200
  42. 445 POKE53289,4
  43. 450 FORN=0TO62
  44. 460 POKE53271,7:POKE53277,7
  45. 470 READQ
  46. 480 POKE12800+N,Q:NEXT
  47. 490 POKE53252,249:POKE53253,176
  48. 500 REM
  49. 510 POKE53269,0:POKE2043,204
  50. 520 POKE53290,5
  51. 530 FORN=0TO62
  52. 540 POKE53271,15:POKE53277,15
  53. 550 READQ
  54. 560 POKE13056+N,Q:NEXT
  55. 570 POKE53254,200:POKE53255,206
  56. 575 POKE53269,15
  57. 580 PRINT"[147]"
  58. 590 S=1
  59. 600 P=25
  60. 601 PRINT"[147]            TAKE AWAY ISLAND[146]"
  61. 602 PRINT"PRESS 1 FOR ONE DIGIT OR 2 FOR TWO DIGIT NUMBERS"
  62. 603 GETA$
  63. 604 IFA$="1"THENW=1:GOTO620
  64. 605 IFA$="2"THENW=2:GOTO620
  65. 606 GOTO603
  66. 620 PRINT"[147]            TAKE AWAY ISLAND[146]"
  67. 625 IFW=2THEN642
  68. 630 A=INT(RND(1)*6)+3
  69. 640 B=INT(RND(0)*A)
  70. 641 IFW=1THEN670
  71. 642 A=INT(RND(1)*99)
  72. 643 IFA<10THEN642
  73. 644 B=INT(RND(0)*A)
  74. 645 IFB<10THEN644
  75. 670 PRINT"          WHAT IS"A"-"B
  76. 710 INPUT"[145]";C
  77. 720 IFC=A-BTHENGOTO760
  78. 730 PRINT"                  NO"A-B"[158]":FORP=1TO750:NEXT
  79. 750 S=S-1:GOTO770
  80. 760 S=S+1
  81. 765 FORP=1TO350:NEXT
  82. 770 IFS=0THEN880
  83. 780 IFS=1THEN890
  84. 790 IFS=2THEN900
  85. 800 IFS=3THEN910
  86. 810 IFS=4THEN920
  87. 820 IFS=5THEN930
  88. 830 IFS=6THEN940
  89. 840 IFS=7THEN950
  90. 850 IFS=8THEN960
  91. 860 IFS=9THEN970
  92. 870 IFS=10THEN980
  93. 880 POKE53254,190:POKE53255,210
  94. 885 GOTO1260
  95. 890 POKE53254,200:POKE53255,206
  96. 895 GOTO620
  97. 900 POKE53254,204:POKE53255,202
  98. 905 GOTO620
  99. 910 POKE53254,209:POKE53255,198
  100. 915 GOTO620
  101. 920 POKE53254,213:POKE53255,194
  102. 925 GOTO620
  103. 930 POKE53254,217:POKE53255,191
  104. 935 GOTO620
  105. 940 POKE53254,221:POKE53255,188
  106. 945 GOTO620
  107. 950 POKE53254,225:POKE53255,183
  108. 955 GOTO620
  109. 960 POKE53254,229:POKE53255,179
  110. 965 GOTO620
  111. 970 POKE53254,232:POKE53255,174
  112. 975 GOTO620
  113. 980 POKE53254,239:POKE53255,171
  114. 985 GOTO1245
  115. 990 REM
  116. 1180 REM
  117. 1200 RETURN
  118. 1210 REM
  119. 1220 POKE782,X:POKE781,Y
  120. 1240 RETURN
  121. 1245 POKE53269,7
  122. 1260 C=249:D=170:E=53252:F=53253
  123. 1270 POKEE,C:POKEF,D
  124. 1280 D=D-5
  125. 1290 IFD=100THEN1310
  126. 1295 FORP=1TO50:NEXT
  127. 1300 GOTO1270
  128. 1310 POKEE,C:POKEF,D
  129. 1320 C=C-5
  130. 1330 IFC<5THEN1925
  131. 1340 GOTO1310
  132. 1925 IFS=10THENGOTO1940
  133. 1930 POKE53269,11
  134. 1935 IFS=0THENGOTO1950
  135. 1940 POKE53269,3
  136. 1950 REM
  137. 1955 FORR=1TO2000:NEXT
  138. 1960 POKE53252,249:POKE53253,176
  139. 1970 POKE53254,200:POKE53255,206
  140. 1980 POKE53269,15
  141. 1990 GOTO590
  142. 2000 DATA0,0,0,0,0,0,0,0,63
  143. 2001 DATA0,0,63,0,0,255,0,0,255
  144. 2002 DATA0,3,255,0,3,255,0,15,255
  145. 2003 DATA0,15,255,0,63,255,0,63,255
  146. 2004 DATA0,255,255,0,255,255,3,255,255
  147. 2005 DATA3,255,255,15,255,255,15,255,255
  148. 2006 DATA63,255,255,63,255,255,255,255,255
  149. 2007 DATA0,0,0,0,0,0,255,255,0
  150. 2008 DATA255,255,0,255,255,0,255,255,0
  151. 2009 DATA255,255,0,255,255,0,255,255,0
  152. 2010 DATA255,255,0,255,255,0,255,255,0
  153. 2011 DATA255,255,0,255,255,0,255,255,0
  154. 2012 DATA255,255,0,255,255,0,255,255,0
  155. 2013 DATA255,255,0,255,255,0,255,255,0
  156. 2014 DATA0,0,0,0,0,0,0,0,0
  157. 2015 DATA0,0,0,0,0,0,0,0,0
  158. 2016 DATA255,191,224,0,64,0,0,64,1
  159. 2017 DATA3,240,2,15,255,254,17,255,4
  160. 2018 DATA33,254,8,97,252,0,127,248,0
  161. 2019 DATA63,240,0,8,32,0,31,240,0
  162. 2020 DATA0,0,0,0,0,0,0,0,0
  163. 2021 DATA0,0,0,0,0,0,0,0,0
  164. 2022 DATA0,0,0,0,0,0,0,0,0
  165. 2023 DATA0,0,0,0,0,0,0,0,0
  166. 2024 DATA192,0,0,192,0,0,128,0,0
  167. 2025 DATA192,0,0,192,0,0,192,0,0
  168. 2026 DATA128,0,0,128,0,0,128,0,0
  169. 2027 DATA128,0,0,128,0,0,192,0,0
  170.